home *** CD-ROM | disk | FTP | other *** search

---

/ Developer Source 7 / developer source - volume 7.iso / parad / jul95 / ripp1f4.gif

< prev

next >

Graphics Interchange Format  |  1996-11-18  |  8KB  |  646x379  |  4-bit (5 colors)

Labels: text | electronics | screenshot | display | software | number
OCR: DATES.SSL :: #Script1 :: run method run(var eventInfo Event) var .... counter SmallInt to TCursor startDate Date endVar startDate = Date("1/1/95") ; Start on Jan 1, 1995 tc.open("dates.db") tc.edit() for counter from 0 to 364 ; Create one year's worth tc.insertAfterRecord( ) ; of data. tc."date" = startDate + counter tc.postRecord( ) endFor tc.close() endmethod Edit Line: 13 Col: 1

---